home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / language / glisp.zoo / FACT1.GL next >
Text File  |  1990-05-30  |  166b  |  8 lines
  1. "Factoriel iteratif"
  2. (de iter (n f)
  3.   (if (zerop n) f
  4.      (iter (- n 1) (* n f))))
  5. (de fact (n) (iter n 1))
  6. "(repeat 1000 (fact 13))"
  7. (repeat 1000 (fact 13))
  8.